home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / FLPRNT.f < prev    next >
Text File  |  1992-07-31  |  884b  |  28 lines
  1.       SUBROUTINE FLPRNT(NBLANK,SHEAD,N,STRING,NCOUNT)   
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- writes lines onto PRINT output file (MPUNIT)   
  5. *   
  6. *--- input  
  7. *    NBLANK      # of blank lines to print in front 
  8. *    SHEAD       string to be put into header part of line 1
  9. *    N           # of lines 
  10. *    STRING      lines  
  11. *--- input/output   
  12. *    NCOUNT      counter to be increased by N   
  13. *   
  14. *-----------------------------------------------------------------------
  15.       include 'PARAM.h' 
  16.       include 'USUNIT.h' 
  17.       CHARACTER *(*) STRING(*),SHEAD,SLOC*15
  18.       DO 10 I=1,NBLANK  
  19.          WRITE (MZUNIT,'('' '')')   
  20.    10 CONTINUE  
  21.       SLOC=SHEAD
  22.       WRITE(MZUNIT,'(1X,A15,A)')  SLOC,STRING(1)
  23.       DO 20 I=2,N   
  24.          WRITE (MZUNIT,'(16X,A)') STRING(I) 
  25.    20 CONTINUE  
  26.       NCOUNT=NCOUNT+N   
  27.       END   
  28.